Top 10k strings from Superplan Generator (1982)(Video Software).tzx
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 (pp/du)+10 5 pr=pr+wid: 5 Date # 3 salesday 24.01.83 3 c$(cc,un): 3 NAME 3 Exempt @ 3 @ zero @ 3 @ XX% @ 3 @ 15% @ 3 VAT @ 2 y$=y$+y$+y$: 2 v(mark)=ptr: 2 shortdem 1 2 ptr=twf*32 2 ptr=ptr+attr: 2 ptr=bwf*32 2 pr=pr-wid: 2 l$=c$(c,17 2 l$(un)*byt+ 2 chr=attr+rl*32 2 chr=attr+n*32 2 c$(cc,un))>rwf 2 arc=cc-un: 2 )=c$(occ,qu): 2 )=c$(cc,qu): 2 (f$(un)="@" 2 ((rt<ze)+(255 2 "OK? (y/n) ";l$: 2 ";n;" ": 2 Postage @ 2 Inv.No @ 2 Bal.Total @ 2 Stnry @ 2 SP 2 Petrol @ 2 Office @ 2 NL Cheques@ 2 Total @ 2 CHECK &^d-e:i+ 2 Line 99 2 Line 98 2 Line 97 2 Line 96 2 Line 95 2 Line 94 2 Line 93 2 Line 92 2 Line 91 2 Line 90 2 Line 9 2 Line 89 2 Line 88 2 Line 87 2 Line 86 2 Line 85 2 Line 84 2 Line 83 2 Line 82 2 Line 81 2 Line 80 2 Line 8 2 Line 79 2 Line 78 2 Line 77 2 Line 76 2 Line 75 2 Line 74 2 Line 73 2 Line 72 2 Line 71 2 Line 70 2 Line 7 2 Line 69 2 Line 68 2 Line 67 2 Line 66 2 Line 65 2 Line 64 2 Line 63 2 Line 62 2 Line 61 2 Line 60 2 Line 6 2 Line 59 2 Line 58 2 Line 57 2 Line 56 2 Line 55 2 Line 54 2 Line 53 2 Line 52 2 Line 51 2 Line 50 2 Line 5 2 Line 49 2 Line 48 2 Line 47 2 Line 46 2 Line 45 2 Line 44 2 Line 43 2 Line 42 2 Line 41 2 Line 40 2 Line 4 2 Line 39 2 Line 38 2 Line 37 2 Line 36 2 Line 35 2 Line 34 2 Line 33 2 Line 32 2 Line 31 2 Line 30 2 Line 3 2 Line 29 2 Line 28 2 Line 27 2 Line 26 2 Line 25 2 Line 24 2 Line 23 2 Line 22 2 Line 21 2 Line 20 2 Line 2 2 Line 19 2 Line 18 2 Line 17 2 Line 16 2 Line 153 2 Line 152 2 Line 151 2 Line 150 2 Line 15 2 Line 149 2 Line 148 2 Line 147 2 Line 146 2 Line 145 2 Line 144 2 Line 143 2 Line 142 2 Line 141 2 Line 140 2 Line 14 2 Line 139 2 Line 138 2 Line 137 2 Line 136 2 Line 135 2 Line 134 2 Line 133 2 Line 132 2 Line 131 2 Line 130 2 Line 13 2 Line 129 2 Line 128 2 Line 127 2 Line 126 2 Line 125 2 Line 124 2 Line 123 2 Line 122 2 Line 121 2 Line 120 2 Line 12 2 Line 119 2 Line 118 2 Line 117 2 Line 116 2 Line 115 2 Line 114 2 Line 113 2 Line 112 2 Line 111 2 Line 110 2 Line 11 2 Line 109 2 Line 108 2 Line 107 2 Line 106 2 Line 105 2 Line 104 2 Line 103 2 Line 102 2 Line 101 2 Line 100 2 Line 10 2 1 ze+a$+s$(un 1 z$(tr)=m$(byte): 1 z$(qu)*256 1 z$(du)=o$(bit): 1 x$=l$+p$+x$: 1 wid<dz)))+s$(un 1 w$(occ-un)+ 1 w$(occ-un) 1 w$(m-un)+dig-un)=u$(se-dig 1 w$(cc-un)+dig-un)=z$(15 1 w$(cc-un)+dig-un)=l$(se-dig 1 up>ze),lwf;(l$ 1 up>ze)+((abl-un) 1 up=(key=55 1 up=(key=11 1 up=(k$="7")-(k$="6"): 1 up=(k$="7" 1 up<ze)+(h$(abl,un 1 up<ze)+(bwf 1 un)+(h$(((cl+(cl=ze) 1 u$=l$(tr)+l$(tr 1 twf=twf-up: 1 twf<bwf-du) 1 twf,lwf;"TITLE " 1 twf+n,lwf;h$(n,un 1 task+(l*10 1 t$=" "+t$(un 1 stockdemoN 1 sproc 1 si;cl;" ": 1 scroll=64512 1 salesdayH 5H 1 salesdayC % 1 s$=" " 1 rwf>lwf+dz) 1 rwf=rwf+rt: 1 rwf-pr+un): 1 rwf-pr+un) 1 rt=(key=56 1 rt=(k$="8" 1 rt=(k$="5")-(k$="8"): 1 rt<ze)+(wid 1 rt<ze)+(arc 1 rt<ze)+((pr+wid-(scr 1 rl>(twf+un)) 1 rl=twf)+(f$ 1 rl=bwf-un: 1 rl=bwf))=l$: 1 rl=bwf)),un 1 rl<bwf-un) 1 rl<bwf)+(ll 1 qu+wid+(12 1 purchdayH 5H 1 purchdayC % 1 prog=63488 1 pr=pr+(adj 1 pettcashH 5H 1 pettcashC % 1 pcc=cc+rt: 1 pack1 F 1 p$=x$(se): 1 op1=op2*(op1/100 1 op1=op1*op2 1 on;"Today's date (8chs):"; 1 on;"START TAPE." 1 on;"START TAPE, type 1 on;"SAVING A BATCH, type 1 on;"New title:";l$: 1 on;"Enter value:";l$: 1 on;"CALC": 1 occ=cc+rt: 1 oc)=c$(occ,30 1 npr=pr+wid+adj-un: 1 npr-scr>rwf): 1 npr-scr>rwf 1 n+un,oc;" ";u$: 1 n$=e$+s$(un 1 multi=65216 1 mark=mark+un: 1 m$(byte)=z$(tr): 1 lwf=lwf+rt: 1 lwf=lwf+(key=56 1 lwf+dz<rwf) 1 l$=h$(atl,un 1 l$=c$(un,27 1 l$=c$(col+un): 1 l$=c$(cc+rt,17 1 l$=c$(cc): 1 l$=a$(un,un 1 l$="TITLE ": 1 l$(tr)*byt+ 1 l$(qu)*byt+ 1 l$(i)=".") 1 l$(du)+un: 1 kon A 1 k$=l$(oc): 1 k$="k")+("=" 1 k$="j")+("+" 1 hno=hno+un: 1 h$(n,un)="*" 1 h$(cl,un)="*": 1 h$(cl,un)="*" 1 f$=c$(cc,17 1 f$(un)="@" 1 f$(un)="&") 1 f$(un)="#" 1 f$(un)=" ") 1 e$;" ";d$;" Batch: ";bno: 1 e$(cc)+t$(du 1 du;"First part loaded": 1 ct+dig-un)=z$(9 1 ct+dig-un)=u$(se-dig 1 cl>un)-(k$="6" 1 cl=cl+(byt 1 cl=atl+rl-twf: 1 cl=atl+c-twf: 1 cl=((atl+un) 1 chr=chr+un: 1 cc=un),un)*rt 1 cc=cc-(128 1 cc=arc+un: 1 cc=alc-(rt<ze): 1 cc<col)-(k$="5" 1 cashbookH 5H 1 cashbookC 1 cashbook 24.01.83 1 c$(twf-un,twf,lwf,rwf) 1 c$(twf-un,bwf,lwf,rwf): 1 c$(twf-un,bwf,lwf,lwf+se): 1 c$(twf,bwf-un,lwf,rwf) 1 c$(cc,qu): 1 c$(cc,fi+(12 1 c$(cc+rt+(rt<ze 1 c$(arc,un)+wid: 1 c$(arc,un)) 1 c$(alc-(rt<ze),un): 1 byt))+u$(du 1 bwf>twf+du) 1 bwf=bwf-up: 1 bot,lwf;"^": 1 bot,lwf;" ": 1 bno=bno+un 1 blk=rwf-pr+un: 1 bit=cc-(byte*oc-oc): 1 bcd 1 attr=22528 1 atl=atl-up: 1 atl=atl+up: 1 atl=atl+twf-otwf 1 arc=arc-(rt<ze 1 arc=arc+un: 1 arc=arc+rt: 1 arc=arc+rt+(rt<ze 1 arc+rt>col 1 alc=alc+rt-(npr 1 alc=alc+rt 1 alc)-(rt>ze 1 abl=bwf-twf 1 abl=atl+bwf-twf 1 abl=abl-up: 1 abl=abl+up 1 a$(un,tr)= 1 a$(un,tr): 1 a$(m,dig): 1 a$(hno)=l$: 1 UNLOADING AUDIT TRAIL 1 TOTALLING COLUMNS 1 Starting points 1 SUPERPLAN Processor 1 SUPERPLAN PROCESSOR MENU 1 SUPERPLAN PROCESSOR 1 SAVING CHART 1 RESET CHART TO SPECIFIC VALUES 1 PREPARATION 1 PERFORM CALCULATIONS 1 Make-ready 1 LOADING A CHART 1 Is that correct? (y/n) 1 First line: 1 First col : 1 Final line: 1 Final col : 1 Created with Ramsoft MakeTZX 1 Chart will be reset to: 1 CHART LOADED 1 CHANGING GLOBAL CONSTANTS 1 Business planning chart 1 BREAK RETURN ENTER 1 -((dz-wid) 1 ,ze;"Type ~x~ to escape": 1 ,ze;"New value, constant no. "; 1 ,ze;"Line: ";n;" Col: ";c;" " 1 ,ze;"Line: ";n: 1 ,,"REWIND TAPE - PRESS PLAY","On error type BREAK RETURN ENTER" 1 ,,"Put cassette in recorder." 1 ,,"LOAD CASSETTE, PRESS PLAY ","On error type BREAK RETURN ENTER",,, 1 ,,"First part saved": 1 +wid-(pl=ze)): 1 )=c$(cc,30 1 )-un)=z$(15 1 (wid-(wid>12 1 (up>ze))+(up<ze)): 1 (rwf-lwf+un): 1 (orwf-olwf+un): 1 (op1+(op1=ze)) 1 (n<se);n-1 1 (du^(oc-n)): 1 (col/oc)+un: 1 (bno/byt): 1 (bno-(hno*byt)): 1 ((cc-un)/oc)+un: 1 "Your selection (1/2..../9):";l$ 1 "Verify? (y/n)";l$: 1 "Today's date: ";d$: 1 "Second part saved": 1 "STOP TAPE, type 1 "STOP TAPE type 1 "Reset value:";l$: 1 "Put audit trail cassette in yourrecorder. Connect for playback." 1 "PRINT A COPY (y/n)";l$: 1 "PLEASE WAIT" 1 "On error type 1 "New value";u$: 1 "New name:";n$: 1 "Name of new chart:";e$ 1 "First line eg ~1~: ";l$: 1 "First column eg ~b~: ";l$: 1 "Final line eg ~99~: ";l$: 1 "Final column eg ~Z~: ";l$: 1 "Every line? (y/n) ";l$: 1 "Every column? (y/n) ";l$: 1 "Correct?(y/n)";l$: 1 "Correct (y/n)";l$: 1 ";xl;" ": 1 " 9. Perform calculations." 1 " 8. Defer Calculations." 1 " 7. Total chart." 1 " 6. Unload audit trail." 1 " 5. Save chart on cassette." 1 " 4. Set global constants." 1 " 3. View/print/update chart." 1 " 2. Reset chart." 1 " 1. Load chart from cassette." 1 to be loaded. 1 Travel @ 1 Tax/ins @ 1 TITLE 1 Service @ 1 Sales/M @ 1 Repairs @ 1 Rent etc @ 1 PHILIP SMITH 1982 1 PCV No @ 1 Heat/lt @ 1 Equ.hire @ 1 Ent'mnt @ 1 Due out &de- 1 Discount @ 1 Delivrd @ 1 DR Value @ 1 DR Ref.No @ 1 Cust-ords @ 1 Code no 1 CashPaidOut@ 1 Car.hire @ 1 Capital @ 1 CR Value @ 1 CR Ref.No @ 1 Sp 1 SL Total &ef+ 1 SL Cheques@ 1 Pur-ords @ 1 Phone @ 1 Other @ 1 M/order @ 1 Group 5 @ 1 Group 4 @ 1 Group 3 @ 1 Group 2 @ 1 Group 1 @ 1 Due in &bc- 1 Discount @ 1 Car HP @ 1 BL Total &no+ 1 BL Cheques@ 1 W/sale @ 1 Takings @ 1 Stock &ce- 1 Retail @ 1 Rec'd @ 1 Misc @ 1 Hotel @ 1 Export @ 1 Capital @ 1 Other @ 1 Misc @ 1 Free &if+j- 1 Value &fg* 1 Price # 1 CHECK &^r-mnq+ 1 CHECK &^i-deh+ 1 CHECK &^e-l:wj+ 1 CHECK &^e-f:j+ 1 CHECK &^d-q:ui+ 1 CHECK &^d-k:oi+ 1 CHECK &^d-j:wi+ 1 0.00 1 G 1 L 1 T 1 1 1